home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
JCSM Shareware Collection 1996 September
/
JCSM Shareware Collection (JCS Distribution) (September 1996).ISO
/
tutorial
/
trac.zip
/
EX-IV-1.TRA
< prev
next >
Wrap
Text File
|
1990-01-25
|
1KB
|
45 lines
0001 0
I 0 Index register
J 0
5 Initialize index register 4 to 5
BGIN RD A Read first 5 values
4RD A Read second 5 values
INIT LDZERO
ST I Set I=0
ST F Set flag to off
LD ONE
ST J Set J=1
LOOP 2LD A Load A(I)
3SU A - A(I+1)
BNINCR If <
BZINCR or = skip exchange
2LD A Load A(I)
ST T Store at temporary location
3LD A Load A(I+1)
2ST A Store at A(I)
LD T Get temporary value
3ST A Store in A(I+1)
LD ONE
ST F Set flag to on
INCR LD J
AD ONE
ST J Increment J (Actually I+1)
LD I
AD ONE
ST I Increment I
SUNINE Done with pass?
BNLOOP If not repeat loop
LD F Any exchanges?
BZPRNT If not, print
BUINIT Do another pass
PRNT PC A Print first 5 values
4PC A Print second 5 values
HT* Stop
F 0
ONE 1
T 0
NINE 9
ZERO 0
A 0
ENBGIN